/ 8bitfiles.net/archives / archives.tar / archives / genie-commodore-file-library / C64-128Toolkit / COMALTUTOR3.SDA / LESSON THIRTEEN

< prev

next >

MacOS 8.1

Win98

DOS

view JSON data

view as text

+--------+-------------------------+-------------------------+--------+--------+
|00000000| c4 0e 9a 10 1b 13 00 0a | 1f 00 20 44 45 4c 45 54 |........|.. DELET|
|00000010| 45 20 22 30 3a 4c 45 53 | 53 4f 4e 20 54 48 49 52 |E "0:LES|SON THIR|
|00000020| 54 45 45 4e 22 00 14 16 | 00 20 53 48 49 47 4c 45 |TEEN"...|. SHIGLE|
|00000030| 59 20 54 55 54 4f 52 49 | 41 4c 53 00 1e 1f 00 20 |Y TUTORI|ALS.... |
|00000040| 53 41 56 45 20 20 20 22 | 30 3a 4c 45 53 53 4f 4e |SAVE   "|0:LESSON|
|00000050| 20 54 48 49 52 54 45 45 | 4e 22 00 28 06 7f 11 81 | THIRTEE|N".(....|
|00000060| 00 32 06 7f 12 81 00 3c | 06 7f 15 81 00 46 06 7f |.2.....<|.....F..|
|00000070| 16 81 00 50 06 7f 17 81 | 00 5a 06 7f 18 81 00 64 |...P....|.Z.....d|
|00000080| 06 7f 19 81 00 6e 06 7f | 1f 81 00 78 06 7f 1a 81 |.....n..|...x....|
|00000090| 00 82 04 00 00 8c 09 70 | 11 48 8a 00 7b 00 96 0b |.......p|.H..{...|
|000000a0| 5f 02 00 8e 4b 65 60 61 | 00 a0 0c 8c 8f 0c 00 02 |_...Ke`a|........|
|000000b0| 00 0a 93 c5 00 aa 06 7f | 13 81 00 b4 0a ff 1e 02 |........|........|
|000000c0| 00 0c ff 1f 00 be 12 5f | 03 09 4c 45 53 53 4f 4e |......._|..LESSON|
|000000d0| 20 31 33 65 60 61 00 c8 | 21 5f 03 18 46 55 4e 43 | 13e`a..|!_..FUNC|
|000000e0| 54 49 4f 4e 53 20 41 53 | 20 53 55 42 50 52 4f 47 |TIONS AS| SUBPROG|
|000000f0| 52 41 4d 53 65 60 61 00 | d2 06 7f 10 81 00 dc 05 |RAMSe`a.|........|
|00000100| 7d 11 00 e6 04 00 00 f0 | 09 70 13 65 8a 00 7b 00 |}.......|.p.e..{.|
|00000110| fa 0b 5f 02 00 93 4b 65 | 60 61 01 04 05 7d 13 01 |.._...Ke|`a...}..|
|00000120| 0e 04 00 01 18 09 70 10 | f1 8a 00 7c 01 22 06 5f |......p.|...|."._|
|00000130| 60 61 01 2c 09 07 0d 02 | 02 8d 3a 01 36 0b 97 04 |`a.,....|..:.6...|
|00000140| 0d d8 37 98 bc 8a 01 40 | 16 5f 03 0d 1c 50 52 45 |..7....@|._...PRE|
|00000150| 53 53 20 53 48 49 46 54 | 91 65 60 61 01 4a 15 5f |SS SHIFT|.e`a.J._|
|00000160| 03 0c 20 20 20 20 20 20 | 20 20 20 20 20 91 65 60 |..      |     .e`|
|00000170| 61 01 54 06 9b 86 8a 01 | 5e 0a ff 1e 02 00 0c ff |a.T.....|^.......|
|00000180| 1f 01 68 12 82 05 10 00 | 02 00 01 84 02 01 2c 85 |..h.....|......,.|
|00000190| 88 f4 89 01 72 06 7f 13 | 81 01 7c 0d 97 f9 02 00 |....r...|..|.....|
|000001a0| 00 4b 31 99 f4 9a 01 86 | 05 7d 10 01 90 04 00 01 |.K1.....|.}......|
|000001b0| 9a 09 70 1a 0f 8b 00 7b | 01 a4 0c d2 03 04 4d 45 |..p....{|......ME|
|000001c0| 4e 55 d4 d3 01 ae 05 7d | 1a 01 b8 04 00 01 c2 09 |NU.....}|........|
|000001d0| 70 12 d9 8c 00 7b 01 cc | 30 5f 03 27 46 55 4e 43 |p....{..|0_.'FUNC|
|000001e0| 54 49 4f 4e 53 20 43 4f | 4d 50 55 54 45 20 41 4e |TIONS CO|MPUTE AN|
|000001f0| 44 20 52 45 50 52 45 53 | 45 4e 54 20 56 41 4c 55 |D REPRES|ENT VALU|
|00000200| 45 53 2e 65 60 61 01 d6 | 2d 5f 03 24 11 43 4f 4d |ES.e`a..|-_.$.COM|
|00000210| 41 4c 20 48 41 53 20 20 | 4d 41 4e 59 20 53 54 41 |AL HAS  |MANY STA|
|00000220| 4e 44 41 52 44 20 46 55 | 4e 43 54 49 4f 4e 53 2e |NDARD FU|NCTIONS.|
|00000230| 65 60 61 01 e0 19 5f 03 | 10 11 48 45 52 45 20 41 |e`a..._.|..HERE A|
|00000240| 52 45 20 41 20 46 45 57 | 3a 65 60 61 01 ea 06 5f |RE A FEW|:e`a..._|
|00000250| 60 61 01 f4 0a ff 1e 02 | 00 07 ff 1f 01 fe 07 02 |`a......|........|
|00000260| 00 08 46 02 08 26 5f 03 | 03 41 42 53 65 66 03 16 |..F..&_.|.ABSef..|
|00000270| 52 45 54 55 52 4e 53 20 | 41 42 53 4f 4c 55 54 45 |RETURNS |ABSOLUTE|
|00000280| 20 56 41 4c 55 45 65 60 | 61 02 12 23 5f 03 04 11 | VALUEe`|a..#_...|
|00000290| 41 54 4e 65 66 03 12 52 | 45 54 55 52 4e 53 20 41 |ATNef..R|ETURNS A|
|000002a0| 52 43 54 41 4e 47 45 4e | 54 65 60 61 02 1c 1f 5f |RCTANGEN|Te`a..._|
|000002b0| 03 04 11 43 4f 53 65 66 | 03 0e 52 45 54 55 52 4e |...COSef|..RETURN|
|000002c0| 53 20 43 4f 53 49 4e 45 | 65 60 61 02 26 21 5f 03 |S COSINE|e`a.&!_.|
|000002d0| 04 11 45 58 50 65 66 03 | 10 52 45 54 55 52 4e 53 |..EXPef.|.RETURNS|
|000002e0| 20 45 58 50 4f 4e 45 4e | 54 65 60 61 02 30 28 5f | EXPONEN|Te`a.0(_|
|000002f0| 03 04 11 49 4e 54 65 66 | 03 17 52 45 54 55 52 4e |...INTef|..RETURN|
|00000300| 53 20 4e 45 41 52 45 53 | 54 20 49 4e 54 45 47 45 |S NEARES|T INTEGE|
|00000310| 52 65 60 61 02 3a 29 5f | 03 04 11 4c 45 4e 65 66 |Re`a.:)_|...LENef|
|00000320| 03 18 52 45 54 55 52 4e | 53 20 4c 45 4e 47 54 48 |..RETURN|S LENGTH|
|00000330| 20 4f 46 20 53 54 52 49 | 4e 47 65 60 61 02 44 22 | OF STRI|NGe`a.D"|
|00000340| 5f 03 04 11 4c 4f 47 65 | 66 03 11 52 45 54 55 52 |_...LOGe|f..RETUR|
|00000350| 4e 53 20 4c 4f 47 41 52 | 49 54 48 4d 65 60 61 02 |NS LOGAR|ITHMe`a.|
|00000360| 4e 29 5f 03 04 11 52 4e | 44 65 66 03 18 52 45 54 |N)_...RN|Def..RET|
|00000370| 55 52 4e 53 20 41 20 52 | 41 4e 44 4f 4d 20 4e 55 |URNS A R|ANDOM NU|
|00000380| 4d 42 45 52 2e 65 60 61 | 02 58 06 7f 10 81 02 62 |MBER.e`a|.X.....b|
|00000390| 05 7d 12 02 6c 04 00 02 | 76 09 70 15 51 8e 00 7b |.}..l...|v.p.Q..{|
|000003a0| 02 80 07 02 00 00 46 02 | 8a 2f 5f 03 26 4f 4e 45 |......F.|./_.&ONE|
|000003b0| 20 43 4f 4d 4d 4f 4e 20 | 46 55 4e 43 54 49 4f 4e | COMMON |FUNCTION|
|000003c0| 20 49 53 20 54 48 45 20 | 9c 53 51 52 98 20 57 48 | IS THE |.SQR. WH|
|000003d0| 49 43 48 65 60 61 02 94 | 2e 5f 03 25 11 46 49 4e |ICHe`a..|._.%.FIN|
|000003e0| 44 53 20 54 48 45 20 53 | 51 55 41 52 45 20 52 4f |DS THE S|QUARE RO|
|000003f0| 4f 54 20 4f 46 20 41 4e | 59 20 4e 55 4d 42 45 52 |OT OF AN|Y NUMBER|
|00000400| 2e 65 60 61 02 9e 30 5f | 03 27 11 54 48 45 20 53 |.e`a..0_|.'.THE S|
|00000410| 51 52 20 4f 46 20 31 36 | 20 49 53 20 34 20 42 45 |QR OF 16| IS 4 BE|
|00000420| 43 41 55 53 45 20 34 20 | 2a 20 34 20 3d 20 31 36 |CAUSE 4 |* 4 = 16|
|00000430| 2e 65 60 61 02 a8 30 5f | 03 27 11 54 48 49 53 20 |.e`a..0_|.'.THIS |
|00000440| 53 48 4f 52 54 20 50 52 | 4f 47 52 41 4d 20 53 48 |SHORT PR|OGRAM SH|
|00000450| 4f 57 53 20 49 54 20 49 | 4e 20 41 43 54 49 4f 4e |OWS IT I|N ACTION|
|00000460| 2e 65 60 61 02 b2 06 7f | 5c 81 02 bc 1a 5f 03 11 |.e`a....|\...._..|
|00000470| 52 55 4e 20 54 48 49 53 | 20 50 52 4f 47 52 41 4d |RUN THIS| PROGRAM|
|00000480| 2e 65 60 61 02 c6 06 7f | 5b 81 02 d0 0a ff 1e 02 |.e`a....|[.......|
|00000490| 00 0e ff 1f 02 da 1a b5 | 03 0f 45 4e 54 45 52 20 |........|..ENTER |
|000004a0| 41 20 4e 55 4d 42 45 52 | 3a b7 07 37 b8 bb 02 e4 |A NUMBER|:..7....|
|000004b0| 0b 07 52 04 37 04 37 24 | 3a 02 ee 16 5f 03 0d 54 |..R.7.7$|:..._..T|
|000004c0| 48 45 20 53 51 55 41 52 | 45 20 49 53 65 67 61 02 |HE SQUAR|E ISega.|
|000004d0| f8 0c 5f 04 37 04 37 24 | 64 60 61 03 02 1b 5f 03 |.._.7.7$|d`a..._.|
|000004e0| 12 54 48 45 20 53 51 55 | 41 52 45 20 52 4f 4f 54 |.THE SQU|ARE ROOT|
|000004f0| 20 49 53 65 67 61 03 0c | 0a 5f 04 52 59 64 60 61 | ISega..|._.RYd`a|
|00000500| 03 16 06 7f 10 81 03 20 | 05 7d 15 03 2a 04 00 03 |....... |.}..*...|
|00000510| 34 09 70 16 45 90 00 7b | 03 3e 20 5f 03 17 4c 49 |4.p.E..{|.> _..LI|
|00000520| 53 54 20 54 48 45 20 50 | 52 4f 47 52 41 4d 20 41 |ST THE P|ROGRAM A|
|00000530| 47 41 49 4e 2e 65 60 61 | 03 48 06 7f 5a 81 03 52 |GAIN.e`a|.H..Z..R|
|00000540| 06 7f 5c 81 03 5c 31 5f | 03 28 11 1e 53 51 52 98 |..\..\1_|.(..SQR.|
|00000550| 20 49 53 20 54 48 45 20 | 53 51 55 41 52 45 20 52 | IS THE |SQUARE R|
|00000560| 4f 4f 54 20 46 55 4e 43 | 54 49 4f 4e 2e 20 20 54 |OOT FUNC|TION.  T|
|00000570| 48 45 65 60 61 03 66 30 | 5f 03 27 11 42 41 53 49 |HEe`a.f0|_.'.BASI|
|00000580| 43 20 49 44 45 41 20 42 | 45 48 49 4e 44 20 41 4c |C IDEA B|EHIND AL|
|00000590| 4c 20 46 55 4e 43 54 49 | 4f 4e 53 20 49 53 20 54 |L FUNCTI|ONS IS T|
|000005a0| 48 45 65 60 61 03 70 2f | 5f 03 26 11 53 41 4d 45 |HEe`a.p/|_.&.SAME|
|000005b0| 2e 20 20 54 48 45 20 46 | 55 4e 43 54 49 4f 4e 20 |.  THE F|UNCTION |
|000005c0| 46 49 4e 44 53 20 41 20 | 56 41 4c 55 45 20 46 4f |FINDS A |VALUE FO|
|000005d0| 52 65 60 61 03 7a 2d 5f | 03 24 11 57 48 41 54 20 |Re`a.z-_|.$.WHAT |
|000005e0| 59 4f 55 20 49 4e 43 4c | 55 44 45 20 49 4e 20 50 |YOU INCL|UDE IN P|
|000005f0| 41 52 45 4e 54 48 45 53 | 45 53 20 41 4e 44 65 60 |ARENTHES|ES ANDe`|
|00000600| 61 03 84 31 5f 03 28 11 | 52 45 54 55 52 4e 53 20 |a..1_.(.|RETURNS |
|00000610| 54 48 49 53 20 56 41 4c | 55 45 20 42 41 43 4b 20 |THIS VAL|UE BACK |
|00000620| 54 4f 20 54 48 45 20 50 | 52 4f 47 52 41 4d 2e 65 |TO THE P|ROGRAM.e|
|00000630| 60 61 03 8e 06 7f 10 81 | 03 98 30 5f 03 27 54 48 |`a......|..0_.'TH|
|00000640| 45 20 52 41 4e 44 4f 4d | 20 46 55 4e 43 54 49 4f |E RANDOM| FUNCTIO|
|00000650| 4e 2c 20 1f 52 4e 44 98 | 2c 20 49 53 20 4f 4e 45 |N, .RND.|, IS ONE|
|00000660| 20 54 48 41 54 65 60 61 | 03 a2 31 5f 03 28 11 4e | THATe`a|..1_.(.N|
|00000670| 4f 54 20 4f 4e 4c 59 20 | 53 41 56 45 53 20 4d 55 |OT ONLY |SAVES MU|
|00000680| 43 48 20 54 45 44 49 4f | 55 53 20 50 52 4f 47 52 |CH TEDIO|US PROGR|
|00000690| 41 4d 49 4e 47 2c 65 60 | 61 03 ac 2c 5f 03 23 11 |AMING,e`|a..,_.#.|
|000006a0| 49 54 20 49 53 20 4f 4e | 45 20 54 48 41 54 20 59 |IT IS ON|E THAT Y|
|000006b0| 4f 55 20 57 49 4c 4c 20 | 55 53 45 20 4f 46 54 45 |OU WILL |USE OFTE|
|000006c0| 4e 2e 65 60 61 03 b6 2f | 5f 03 26 11 4c 45 54 27 |N.e`a../|_.&.LET'|
|000006d0| 53 20 4c 4f 4f 4b 20 41 | 54 20 41 20 50 52 4f 47 |S LOOK A|T A PROG|
|000006e0| 52 41 4d 20 54 48 41 54 | 20 55 53 45 53 20 49 54 |RAM THAT| USES IT|
|000006f0| 2e 65 60 61 03 c0 06 7f | 10 81 03 ca 05 7d 16 03 |.e`a....|.....}..|
|00000700| d4 04 00 03 de 09 70 17 | 98 90 00 7b 03 e8 06 7f |......p.|...{....|
|00000710| 5d 81 03 f2 29 5f 03 20 | 11 57 48 59 20 44 4f 4e |]...)_. |.WHY DON|
|00000720| 27 54 20 59 4f 55 20 52 | 55 4e 20 54 48 49 53 20 |'T YOU R|UN THIS |
|00000730| 50 52 4f 47 52 41 4d 2e | 65 60 61 03 fc 06 7f 5b |PROGRAM.|e`a....[|
|00000740| 81 04 06 06 7f 5e 81 04 | 10 06 7f 10 81 04 1a 05 |.....^..|........|
|00000750| 7d 17 04 24 04 00 04 2e | 09 70 18 de 91 00 7b 04 |}..$....|.p....{.|
|00000760| 38 0a ff 1e 02 00 0c ff | 1f 04 42 1c 5f 03 13 4c |8.......|..B._..L|
|00000770| 49 53 54 20 54 48 45 20 | 50 52 4f 47 52 41 4d 2e |IST THE |PROGRAM.|
|00000780| 2e 2e 65 60 61 04 4c 06 | 7f 5a 81 04 56 06 7f 5d |..e`a.L.|.Z..V..]|
|00000790| 81 04 60 2f 5f 03 26 49 | 4e 20 54 48 49 53 20 50 |..`/_.&I|N THIS P|
|000007a0| 52 4f 47 52 41 4d 20 1e | 52 4e 44 98 20 46 49 4e |ROGRAM .|RND. FIN|
|000007b0| 44 53 20 54 57 4f 20 52 | 41 4e 44 4f 4d 65 60 61 |DS TWO R|ANDOMe`a|
|000007c0| 04 6a 30 5f 03 27 11 4e | 55 4d 42 45 52 53 20 42 |.j0_.'.N|UMBERS B|
|000007d0| 45 54 57 45 45 4e 20 31 | 20 41 4e 44 20 36 20 57 |ETWEEN 1| AND 6 W|
|000007e0| 48 49 43 48 20 41 52 45 | 20 54 48 45 4e 65 60 61 |HICH ARE| THENe`a|
|000007f0| 04 74 2e 5f 03 25 11 50 | 52 49 4e 54 45 44 20 4f |.t._.%.P|RINTED O|
|00000800| 55 54 2e 20 20 4e 4f 54 | 49 43 45 20 54 48 41 54 |UT.  NOT|ICE THAT|
|00000810| 20 54 48 45 20 5a 4f 4e | 45 20 34 65 60 61 04 7e | THE ZON|E 4e`a.~|
|00000820| 30 5f 03 27 11 54 45 4c | 4c 53 20 54 48 45 20 43 |0_.'.TEL|LS THE C|
|00000830| 4f 4d 50 55 54 45 52 20 | 54 4f 20 55 53 45 20 54 |OMPUTER |TO USE T|
|00000840| 48 45 20 43 4f 4d 4d 41 | 20 54 4f 65 60 61 04 88 |HE COMMA| TOe`a..|
|00000850| 2f 5f 03 26 11 50 52 49 | 4e 54 20 54 48 45 20 4e |/_.&.PRI|NT THE N|
|00000860| 55 4d 42 45 52 53 20 49 | 4e 20 43 4f 4c 55 4d 4e |UMBERS I|N COLUMN|
|00000870| 53 20 34 20 53 50 41 43 | 45 53 65 60 61 04 92 10 |S 4 SPAC|ESe`a...|
|00000880| 5f 03 07 11 41 50 41 52 | 54 2e 65 60 61 04 9c 06 |_...APAR|T.e`a...|
|00000890| 7f 10 81 04 a6 05 7d 18 | 04 b0 04 00 04 ba 09 70 |......}.|.......p|
|000008a0| 19 8f 92 00 7b 04 c4 2e | 5f 03 25 4a 55 53 54 20 |....{...|_.%JUST |
|000008b0| 54 4f 20 50 52 4f 56 45 | 20 54 48 41 54 20 54 48 |TO PROVE| THAT TH|
|000008c0| 45 20 4e 55 4d 42 45 52 | 53 20 52 45 41 4c 4c 59 |E NUMBER|S REALLY|
|000008d0| 65 60 61 04 ce 2c 5f 03 | 23 11 41 52 45 20 52 41 |e`a..,_.|#.ARE RA|
|000008e0| 4e 44 4f 4d 2c 20 57 48 | 59 20 44 4f 4e 27 54 20 |NDOM, WH|Y DON'T |
|000008f0| 59 4f 55 20 52 55 4e 20 | 54 48 49 53 65 60 61 04 |YOU RUN |THISe`a.|
|00000900| d8 1a 5f 03 11 11 50 52 | 4f 47 52 41 4d 20 41 47 |.._...PR|OGRAM AG|
|00000910| 41 49 4e 2e 2e 2e 65 60 | 61 04 e2 06 7f 5b 81 04 |AIN...e`|a....[..|
|00000920| ec 06 7f 5e 81 04 f6 19 | 5f 03 10 49 53 4e 27 54 |...^....|_..ISN'T|
|00000930| 20 54 48 41 54 20 4e 49 | 43 45 3f 65 60 61 05 00 | THAT NI|CE?e`a..|
|00000940| 06 7f 10 81 05 0a 05 7d | 19 05 14 04 00 05 1e 09 |.......}|........|
|00000950| 70 1f 1b 95 00 7b 05 28 | 0b 5f 02 00 0e 4b 65 60 |p....{.(|._...Ke`|
|00000960| 61 05 32 10 5f 03 07 d3 | d5 cd cd c1 d2 d9 65 60 |a.2._...|......e`|
|00000970| 61 05 3c 06 5f 60 61 05 | 46 2d 5f 03 24 31 2e 20 |a.<._`a.|F-_.$1. |
|00000980| 20 c6 d5 ce c3 d4 c9 cf | ce d3 20 50 45 52 4d 49 | .......|.. PERMI|
|00000990| 54 20 41 20 53 49 4e 47 | 4c 45 20 54 48 52 45 45 |T A SING|LE THREE|
|000009a0| 2d 65 60 61 05 50 2d 5f | 03 24 4c 45 54 54 45 52 |-e`a.P-_|.$LETTER|
|000009b0| 20 43 4f 44 45 20 54 4f | 20 43 4f 4d 50 4c 45 54 | CODE TO| COMPLET|
|000009c0| 45 20 41 4e 20 4f 54 48 | 45 52 57 49 53 45 65 60 |E AN OTH|ERWISEe`|
|000009d0| 61 05 5a 28 5f 03 1f 4c | 45 4e 47 54 48 59 20 53 |a.Z(_..L|ENGTHY S|
|000009e0| 45 52 49 45 53 20 4f 46 | 20 43 41 4c 43 55 4c 41 |ERIES OF| CALCULA|
|000009f0| 54 49 4f 4e 53 2e 65 60 | 61 05 64 31 5f 03 28 11 |TIONS.e`|a.d1_.(.|
|00000a00| 32 2e 20 20 d4 48 45 20 | d3 d4 c1 ce c4 c1 d2 c4 |2.  .HE |........|
|00000a10| 20 c6 d5 ce c3 d4 c9 cf | ce d3 20 41 56 41 49 4c | .......|.. AVAIL|
|00000a20| 41 42 4c 45 20 49 4e 65 | 60 61 05 6e 2c 5f 03 23 |ABLE INe|`a.n,_.#|
|00000a30| c3 cf cd c1 cc 20 41 52 | 45 20 53 49 4d 49 4c 41 |..... AR|E SIMILA|
|00000a40| 52 20 54 4f 20 54 48 4f | 53 45 20 49 4e 20 4f 54 |R TO THO|SE IN OT|
|00000a50| 48 45 52 65 60 61 05 78 | 22 5f 03 19 4c 41 4e 47 |HERe`a.x|"_..LANG|
|00000a60| 55 41 47 45 53 20 53 55 | 43 48 20 41 53 20 d0 41 |UAGES SU|CH AS .A|
|00000a70| 53 43 41 4c 2e 65 60 61 | 05 82 2c 5f 03 23 11 33 |SCAL.e`a|..,_.#.3|
|00000a80| 2e 20 20 d3 4f 4d 45 20 | 4f 46 20 54 48 45 20 4d |.  .OME |OF THE M|
|00000a90| 4f 52 45 20 48 45 41 56 | 49 4c 59 20 55 53 45 44 |ORE HEAV|ILY USED|
|00000aa0| 20 65 60 61 05 8c 31 5f | 03 28 46 55 4e 43 54 49 | e`a..1_|.(FUNCTI|
|00000ab0| 4f 4e 53 20 49 4e 43 4c | 55 44 45 20 d2 ce c4 20 |ONS INCL|UDE ... |
|00000ac0| 57 48 49 43 48 20 46 49 | 4e 44 53 20 52 41 4e 44 |WHICH FI|NDS RAND|
|00000ad0| 4f 4d 65 60 61 05 96 2f | 5f 03 26 91 4e 55 4d 42 |OMe`a../|_.&.NUMB|
|00000ae0| 45 52 53 2c 20 c5 cf c4 | 20 57 48 49 43 48 20 43 |ERS, ...| WHICH C|
|00000af0| 48 45 43 4b 53 20 46 4f | 52 20 54 48 45 20 45 4e |HECKS FO|R THE EN|
|00000b00| 44 65 60 61 05 a0 2d 5f | 03 24 4f 46 20 44 41 54 |De`a..-_|.$OF DAT|
|00000b10| 41 20 49 4e 20 c2 c1 d4 | c3 c8 20 50 52 4f 43 45 |A IN ...|.. PROCE|
|00000b20| 53 53 49 4e 47 2c 20 41 | 4e 44 20 c5 cf c6 65 60 |SSING, A|ND ...e`|
|00000b30| 61 05 aa 30 5f 03 27 57 | 48 49 43 48 20 43 48 45 |a..0_.'W|HICH CHE|
|00000b40| 43 4b 53 20 46 4f 52 20 | 54 48 45 20 45 4e 44 20 |CKS FOR |THE END |
|00000b50| 4f 46 20 41 4e 20 45 58 | 54 45 52 4e 41 4c 65 60 |OF AN EX|TERNALe`|
|00000b60| 61 05 b4 0e 5f 03 05 46 | 49 4c 45 2e 65 60 61 05 |a..._..F|ILE.e`a.|
|00000b70| be 2f 5f 03 26 11 34 2e | 20 20 c9 54 20 49 53 20 |./_.&.4.|  .T IS |
|00000b80| 50 4f 53 53 49 42 4c 45 | 20 54 4f 20 43 52 45 41 |POSSIBLE| TO CREA|
|00000b90| 54 45 20 59 4f 55 52 20 | 4f 57 4e 65 60 61 05 c8 |TE YOUR |OWNe`a..|
|00000ba0| 13 5f 03 0a 46 55 4e 43 | 54 49 4f 4e 53 2e 65 60 |._..FUNC|TIONS.e`|
|00000bb0| 61 05 d2 06 7f 10 81 05 | dc 19 5f 03 10 c5 4e 44 |a.......|.._...ND|
|00000bc0| 20 4f 46 20 4c 45 53 53 | 4f 4e 20 31 33 65 60 61 | OF LESS|ON 13e`a|
|00000bd0| 05 e6 05 7d 1f 05 f0 04 | 00 05 fa 09 70 5a 6f 95 |...}....|....pZo.|
|00000be0| 00 7b 06 04 06 5f 60 61 | 06 0e 04 95 06 18 22 b5 |.{..._`a|......".|
|00000bf0| 03 17 9e 45 4e 54 45 52 | 20 4c 49 53 54 20 43 4f |...ENTER| LIST CO|
|00000c00| 4d 4d 41 4e 44 20 2d 2d | 3e b7 09 0c ba bb 06 22 |MMAND --|>......"|
|00000c10| 10 da 06 0c 03 04 4c 49 | 53 54 2d 96 33 95 06 2c |......LI|ST-.3..,|
|00000c20| 06 5f 60 61 06 36 05 7d | 5a 06 40 04 00 06 4a 09 |._`a.6.}|Z.@...J.|
|00000c30| 70 5b c1 95 00 7b 06 54 | 06 5f 60 61 06 5e 04 95 |p[...{.T|._`a.^..|
|00000c40| 06 68 21 b5 03 16 9e 45 | 4e 54 45 52 20 52 55 4e |.h!....E|NTER RUN|
|00000c50| 20 43 4f 4d 4d 41 4e 44 | 20 2d 2d 3e b7 09 0c ba | COMMAND| -->....|
|00000c60| bb 06 72 0f da 06 0c 03 | 03 52 55 4e 2d 96 87 95 |..r.....|.RUN-...|
|00000c70| 06 7c 06 5f 60 61 06 86 | 05 7d 5b 06 90 04 00 06 |.|._`a..|.}[.....|
|00000c80| 9a 09 70 5c 9d 96 00 7b | 06 a4 06 5f 60 61 06 ae |..p\...{|..._`a..|
|00000c90| 0a ff 1e 02 00 0e ff 1f | 06 b8 27 5f 03 1e 49 4e |........|..'_..IN|
|00000ca0| 50 55 54 20 22 45 4e 54 | 45 52 20 41 20 4e 55 4d |PUT "ENT|ER A NUM|
|00000cb0| 42 45 52 3a 22 3a 4e 55 | 4d 42 45 52 65 60 61 06 |BER:":NU|MBERe`a.|
|00000cc0| c2 20 5f 03 17 53 51 55 | 41 52 45 3a 3d 4e 55 4d |. _..SQU|ARE:=NUM|
|00000cd0| 42 45 52 20 2a 20 4e 55 | 4d 42 45 52 65 60 61 06 |BER * NU|MBERe`a.|
|00000ce0| cc 25 5f 03 1c 50 52 49 | 4e 54 20 22 54 48 45 20 |.%_..PRI|NT "THE |
|00000cf0| 53 51 55 41 52 45 20 49 | 53 22 3b 53 51 55 41 52 |SQUARE I|S";SQUAR|
|00000d00| 45 65 60 61 06 d6 24 5f | 03 1b 50 52 49 4e 54 20 |Ee`a..$_|..PRINT |
|00000d10| 22 54 48 45 20 53 51 55 | 41 52 45 20 52 4f 4f 54 |"THE SQU|ARE ROOT|
|00000d20| 20 49 53 22 3b 65 60 61 | 06 e0 1a 5f 03 11 50 52 | IS";e`a|..._..PR|
|00000d30| 49 4e 54 20 53 51 52 28 | 53 51 55 41 52 45 29 65 |INT SQR(|SQUARE)e|
|00000d40| 60 61 06 ea 06 5f 60 61 | 06 f4 0a ff 1e 02 00 0c |`a..._`a|........|
|00000d50| ff 1f 06 fe 05 7d 5c 07 | 08 04 00 07 12 09 70 5d |.....}\.|......p]|
|00000d60| 88 97 00 7b 07 1c 0a ff | 1e 02 00 0e ff 1f 07 26 |...{....|.......&|
|00000d70| 0f 5f 03 06 5a 4f 4e 45 | 20 34 65 60 61 07 30 1b |._..ZONE| 4e`a.0.|
|00000d80| 5f 03 12 46 4f 52 20 43 | 4f 55 4e 54 3a 3d 31 20 |_..FOR C|OUNT:=1 |
|00000d90| 54 4f 20 31 30 65 60 61 | 07 3a 39 5f 03 06 20 50 |TO 10e`a|.:9_.. P|
|00000da0| 52 49 4e 54 65 67 02 00 | 22 4b 65 66 03 15 49 27 |RINTeg..|"Kef..I'|
|00000db0| 4d 20 52 4f 4c 4c 49 4e | 47 20 54 48 45 20 44 49 |M ROLLIN|G THE DI|
|00000dc0| 43 45 2e 65 66 02 00 22 | 4b 65 66 03 01 2c 65 60 |CE.ef.."|Kef..,e`|
|00000dd0| 61 07 44 19 5f 03 10 20 | 44 49 43 45 31 3a 3d 52 |a.D._.. |DICE1:=R|
|00000de0| 4e 44 28 31 2c 36 29 65 | 60 61 07 4e 19 5f 03 10 |ND(1,6)e|`a.N._..|
|00000df0| 20 44 49 43 45 32 3a 3d | 52 4e 44 28 31 2c 36 29 | DICE2:=|RND(1,6)|
|00000e00| 65 60 61 07 58 1b 5f 03 | 12 20 50 52 49 4e 54 20 |e`a.X._.|. PRINT |
|00000e10| 44 49 43 45 31 2c 44 49 | 43 45 32 65 60 61 07 62 |DICE1,DI|CE2e`a.b|
|00000e20| 0f 5f 03 06 45 4e 44 46 | 4f 52 65 60 61 07 6c 06 |._..ENDF|ORe`a.l.|
|00000e30| 5f 60 61 07 76 0a ff 1e | 02 00 0c ff 1f 07 80 05 |_`a.v...|........|
|00000e40| 7d 5d 07 8a 04 00 07 94 | 09 70 5e 10 98 00 7b 07 |}]......|.p^...{.|
|00000e50| 9e 0a ff 1e 02 00 0e ff | 1f 07 a8 07 02 00 04 46 |........|.......F|
|00000e60| 07 b2 10 82 2e 02 98 02 | 00 01 84 02 00 0a 85 87 |........|........|
|00000e70| 07 bc 1e 5f 03 15 49 27 | 4d 20 52 4f 4c 4c 49 4e |..._..I'|M ROLLIN|
|00000e80| 47 20 54 48 45 20 44 49 | 43 45 2e 65 66 61 07 c6 |G THE DI|CE.efa..|
|00000e90| 0e 07 58 02 00 01 02 00 | 06 55 54 3a 07 d0 0e 07 |..X.....|.UT:....|
|00000ea0| 59 02 00 01 02 00 06 55 | 54 3a 07 da 0d 5f 04 58 |Y......U|T:..._.X|
|00000eb0| 64 66 04 59 64 60 61 07 | e4 07 8a 2e ab 97 07 ee |df.Yd`a.|........|
|00000ec0| 07 02 00 00 46 07 f8 05 | 7d 5e 00 00 00 00 00 00 |....F...|}^......|
|00000ed0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ee0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ef0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f00| 00 12 f3 af 00 00 10 d5 | af 00 00 00 00 00 00 00 |........|........|
|00000f10| 00 00 00 00 00 14 6e 8a | 00 00 14 df 89 00 00 14 |......n.|........|
|00000f20| 18 8b 00 00 14 51 8a 00 | 00 00 00 00 00 00 14 e2 |.....Q..|........|
|00000f30| 8c 00 00 14 5a 8e 00 00 | 14 4e 90 00 00 14 a1 90 |....Z...|.N......|
|00000f40| 00 00 14 e7 91 00 00 14 | fa 8a 00 00 00 00 00 00 |........|........|
|00000f50| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f60| 14 98 92 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f70| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f80| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000f90| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fa0| 00 00 00 00 00 00 00 00 | 00 00 00 10 e4 af 00 00 |........|........|
|00000fb0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fc0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000fd0| 00 00 00 00 00 00 00 00 | 10 ee af 00 00 00 00 00 |........|........|
|00000fe0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00000ff0| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001000| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001010| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001020| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001030| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001040| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001050| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 00 00 10 |........|........|
|00001060| e9 af 00 00 00 00 00 00 | 00 00 00 00 00 00 00 00 |........|........|
|00001070| 00 00 00 00 00 00 00 00 | 00 00 00 00 00 10 df af |........|........|
|00001080| 00 00 10 da af 00 00 14 | 24 95 00 00 14 78 95 00 |........|$....x..|
|00001090| 00 14 ca 95 00 00 14 a6 | 96 00 00 14 91 97 00 00 |........|........|
|000010a0| 03 43 4c 53 04 4c 49 4e | 45 08 42 4f 52 44 45 52 |.CLS.LIN|E.BORDER|
|000010b0| 43 4f 04 57 41 49 54 05 | 44 45 4c 41 59 0b 53 43 |CO.WAIT.|DELAY.SC|
|000010c0| 52 45 45 4e 43 4f 4c 4f | 52 0c 42 41 43 4b 47 52 |REENCOLO|R.BACKGR|
|000010d0| 4f 55 4e 44 43 4f 06 43 | 48 41 4e 47 45 08 43 4f |OUNDCO.C|HANGE.CO|
|000010e0| 4e 54 49 4e 55 45 04 47 | 45 54 41 03 47 45 54 01 |NTINUE.G|ETA.GET.|
|000010f0| 41 0a 53 48 49 46 54 27 | 46 4c 41 47 06 46 4f 52 |A.SHIFT'|FLAG.FOR|
|00001100| 4d 41 54 05 45 52 52 4f | 52 0a 53 48 49 46 54 27 |MAT.ERRO|R.SHIFT'|
|00001110| 57 41 49 54 05 49 4e 54 | 52 4f 07 50 41 47 45 4f |WAIT.INT|RO.PAGEO|
|00001120| 4e 45 04 50 41 47 45 03 | 54 57 4f 07 50 41 47 45 |NE.PAGE.|TWO.PAGE|
|00001130| 54 57 4f 09 50 41 47 45 | 54 48 52 45 45 08 50 41 |TWO.PAGE|THREE.PA|
|00001140| 47 45 46 4f 55 52 08 50 | 41 47 45 46 49 56 45 07 |GEFOUR.P|AGEFIVE.|
|00001150| 50 41 47 45 53 49 58 04 | 4d 45 4e 55 03 4c 49 54 |PAGESIX.|MENU.LIT|
|00001160| 04 43 48 41 52 02 44 45 | 02 41 54 07 53 55 4d 4d |.CHAR.DE|.AT.SUMM|
|00001170| 41 52 59 06 43 48 4f 49 | 43 45 06 53 45 43 4f 4e |ARY.CHOI|CE.SECON|
|00001180| 44 02 49 53 03 54 48 45 | 05 46 49 52 53 54 05 54 |D.IS.THE|.FIRST.T|
|00001190| 48 49 52 44 03 4f 41 44 | 05 4c 4c 49 53 54 06 52 |HIRD.OAD|.LLIST.R|
|000011a0| 45 4e 55 4e 4d 05 52 45 | 4e 55 4e 08 44 49 53 54 |ENUNM.RE|NUN.DIST|
|000011b0| 41 4e 43 45 07 4d 49 4c | 45 41 47 45 08 47 41 4c |ANCE.MIL|EAGE.GAL|
|000011c0| 27 43 4f 53 54 09 54 52 | 49 50 27 43 4f 53 54 05 |'COST.TR|IP'COST.|
|000011d0| 43 4f 55 4e 54 03 41 47 | 45 06 41 4e 53 57 45 52 |COUNT.AG|E.ANSWER|
|000011e0| 05 41 4e 53 57 45 01 4c | 03 41 55 54 02 41 34 0a |.ANSWE.L|.AUT.A4.|
|000011f0| 50 45 4e 43 4f 4c 4f 52 | 31 32 03 53 55 4d 06 4e |PENCOLOR|12.SUM.N|
|00001200| 55 4d 42 45 52 06 49 4e | 50 55 54 41 06 57 48 49 |UMBER.IN|PUTA.WHI|
|00001210| 4c 54 45 02 52 55 04 50 | 52 4e 54 05 53 43 4f 52 |LTE.RU.P|RNT.SCOR|
|00001220| 45 05 54 4f 54 41 4c 07 | 41 56 45 52 41 47 45 0a |E.TOTAL.|AVERAGE.|
|00001230| 53 54 41 54 45 4d 45 4e | 54 53 05 56 41 4c 55 45 |STATEMEN|TS.VALUE|
|00001240| 04 43 48 52 34 08 50 55 | 52 43 48 41 53 45 07 42 |.CHR4.PU|RCHASE.B|
|00001250| 41 4c 41 4e 43 45 0b 43 | 52 45 44 49 54 27 47 4f |ALANCE.C|REDIT'GO|
|00001260| 4f 44 0b 47 4f 4f 44 27 | 43 52 45 44 49 54 04 43 |OD.GOOD'|CREDIT.C|
|00001270| 4f 53 54 0e 43 52 45 44 | 49 54 27 49 53 27 47 4f |OST.CRED|IT'IS'GO|
|00001280| 4f 44 02 49 44 04 44 4f | 4e 45 04 54 55 52 45 04 |OD.ID.DO|NE.TURE.|
|00001290| 45 44 4f 54 04 59 45 41 | 52 03 45 49 44 01 53 08 |EDOT.YEA|R.EID.S.|
|000012a0| 45 44 49 54 31 32 30 30 | 02 5d 5d 0a 50 45 4e 43 |EDIT1200|.]].PENC|
|000012b0| 4f 4c 4f 52 31 34 06 53 | 51 55 41 52 45 04 45 49 |OLOR14.S|QUARE.EI|
|000012c0| 44 54 08 46 55 4e 43 54 | 49 4f 4e 05 4d 49 4c 45 |DT.FUNCT|ION.MILE|
|000012d0| 53 0b 43 4f 53 54 27 4f | 46 27 47 41 53 01 58 05 |S.COST'O|F'GAS.X.|
|000012e0| 44 49 43 45 31 05 44 49 | 43 45 32 08 47 45 54 27 |DICE1.DI|CE2.GET'|
|000012f0| 4c 49 53 54 07 47 45 54 | 27 52 55 4e 12 46 55 4e |LIST.GET|'RUN.FUN|
|00001300| 43 54 49 4f 4e 27 45 58 | 41 4d 50 4c 45 27 31 08 |CTION'EX|AMPLE'1.|
|00001310| 52 4e 44 27 4c 49 53 54 | 07 52 4e 44 27 52 55 4e |RND'LIST|.RND'RUN|
|00001320| 00 00                   |                         |..      |        |
+--------+-------------------------+-------------------------+--------+--------+